home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / GETCURSOR < prev    next >
Text File  |  1994-12-13  |  311b  |  5 lines
  1. GETCURSOR: procedure;do until key~='NOCHAR';maygetchar;key=result;end
  2.     if key='1B'x then do 2;maygetchar;key=result;end;else if key='D'x then return '5';else return upper(key)
  3.     if key='A' then return '8';if key='B' then return '2';if key='C' then return '6';if key='D' then return '4'
  4.   return upper(key)
  5.